unit IUProdutoItemEstoque;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Buttons, StdCtrls, DBCtrls;

type
  TFormProdutoItemEstoque = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    LabelIngrediente: TLabel;
    DBLookupListBox1: TDBLookupListBox;
    Button1: TButton;
    Button2: TButton;
    DBLookupListBox2: TDBLookupListBox;
    BitBtn1: TBitBtn;
    DataSource1: TDataSource;
    QueryItemEstoque: TQuery;
    DataSource2: TDataSource;
    QueryProdutoItem: TQuery;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    xId:integer;
  end;

var
  FormProdutoItemEstoque: TFormProdutoItemEstoque;

implementation

{$R *.dfm}

procedure TFormProdutoItemEstoque.FormActivate(Sender: TObject);
begin

  //QueryItemEstoque.ParamByName('p_i')
  //QueryItemEstoque.Open;


end;

end.
